home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -screenplay- / shareware / hammytown / 21.room < prev    next >
Text File  |  1997-12-01  |  8KB  |  165 lines
  1. /*
  2. /* Room script for GRAAL
  3. /*
  4. /* Ivan's Garage.
  5. /* RF 2=1 when mini is gone.
  6. /* RF 3=1 when the crap car hasn't started properly
  7. /* RF 4=1 when it's okay to try to start the crap car
  8. /* RF 5=1 when the mini has been paid for
  9. /* RF 6=1 when the tape has been found in the crap car
  10.  
  11. /* UPDATE: scroll_frames[;normal_frames]
  12. /*
  13. UPDATE: 3;1
  14.  
  15. /* SECTION: section_no
  16. /*
  17. SECTION: 1
  18.  
  19. /* BG_IFF: file
  20. /*
  21. BG_IFF: 21BG.iff
  22.  
  23. /* START_POS: startpos_no;image;x;y;L|M|R;floor_no
  24. /*
  25. START_POS: 1;$800E;313;104;R;1
  26. START_POS: 2;14;6;106;L;1
  27.  
  28. /* FLOOR: floor_no;x1;y1;x2;y2;floormaps
  29. /*
  30. FLOOR: 1;0;80;319;119;1-1
  31.  
  32. /* PATH: path_no;floor1;floor2;px1;py1;px2;py2;{more_points} (This statement is optional)
  33.  
  34. /* EXIT: exit_no;x1;y1;x2;y2;x;y;description (This statement is optional)
  35.  
  36. EXIT: 1;301;33;319;119;315;97;Path
  37. EXIT: 2;0;47;15;119;5;103;Path
  38.  
  39. /* CLPART: file (This statement is optional)
  40. CLPART: 20FG.iff
  41.  
  42. /* ROOMBOBS: number;start_bob;x1;y1;w;h;x-offset;hotspot (This statement is optional)
  43. /* 1 is Mini, 2 is Escort, 3 is Sign, 4-6 is Ivan
  44. ROOMBOBS: 1;1;111;64;71;44;0;20
  45. ROOMBOBS: 1;2;49;66;51;37;0; 
  46. ROOMBOBS: 1;3;42;107;55;28;0; 
  47. ROOMBOBS: 3;4;108;112;35;41;37; 
  48.  
  49. /* STATIC: bob;image;x;y (This statement is optional)
  50.  
  51. /* ANIM: bob;image;anim_ch;anim;x;y (This statement is optional)
  52.  
  53. /* ROOMOBJ: obj;name;room;VIS|NVIS;bob;image;x;y;cx;cy;cimage;prep;PICK|NPICK;anim_ch;verb;icon;LOW|MID|HIGH;types;w1;w2;w3 (This statement is optional)
  54. ROOMOBJ: 1;Escort;21;VIS;51;RBOB2;56;82;19;1;$800E; ;NPICK; ;8; ;MID;T;a;this;it
  55. ROOMOBJ: 2;Sign;21;VIS;52;RBOB3;225;52;-17;25;11; ;NPICK; ;8; ;HIGH;W;a;this;it
  56.  
  57. /* DACT: {cond|comm}
  58. /*
  59. DACT: IFRF 2=1;HIDE 30
  60. DACT: LIGHTS ON
  61. DACT: EXIT
  62.  
  63. /* LINE: dlg;line_no;sentence1;sentence2| ;{cond} (This statement is optional)
  64. /* LACT: dlg;line_no;{cond|comm} (This statement is optional)
  65.  
  66. LINE: 6;1;I'll talk to you later.;I'll talk to you again later.; 
  67. LACT: 6;1;RESP R,6,Right on, see you later.;EDLG;EXIT
  68.  
  69. LINE: 6;2;Who are you?; ; 
  70. LACT: 6;2;RESP R,6,I am Ivan, the owner of this garage.;DSET 6,N2
  71.  
  72. LINE: 6;3;Tell me about the blue car, please.;Tell me about that rustbucket again please.; 
  73. LACT: 6;3;RESP R,6,What do you want to know about it?;DSET 6,S1,+8,+9,+10,+11,+13
  74.  
  75. LINE: 6;4;Tell me about the mini with the dodgy stripes, please.;Tell me about that mini again please.;IFRF 5=0
  76. LACT: 6;4;RESP R,6,Okay, what do you want to know?;DSET 6,S1,+14,+15
  77.  
  78. LINE: 6;5;What is the Garage doing on an island, anyway?; ; 
  79. LACT: 6;5;RESP R,6,Well, the land here is cheap.;RESP R,6,There are not many distractions over here.;RESP R,6,And I can wander over to the Cloud Electronics place in my lunch hour.;RESP R,6,Eric is a mate of mine.
  80. LACT: 6;5;DSET 6,N5,+6
  81.  
  82. LINE: 6;6;Doesn't being on an island deter customers?; ; 
  83. LACT: 6;6;SAY How do they get their cars here if there is no road or ferry?;RESP R,6,Well, I don't know.;RESP R,6,That is probably why we haven't had any customers lately, apart from the Aztec people.
  84. LACT: 6;6;RESP R,6,I did wonder why nobody used this garage.;THINK (What are the people like here?);THINK (This is as bad as Jack and his cockroach stew!);SAY Well, now you know!
  85. LACT: 6;6;DSET 6,N6
  86.  
  87. LINE: 6;7;Do you think you could repair my car?; ; 
  88. LACT: 6;7;RESP R,6,Probably, where is it?;SAY It's wrapped around a tree by the path into the village.;RESP R,6,Oh, that's your car?;RESP R,6,I saw that on the way to work this morning.
  89. LACT: 6;7;SAY Do you think it is fixable?;RESP R,6,Fixable?;RESP R,6,FIXABLE?!;RESP R,6,Come on, you must be taking the piss!;RESP R,6,All the king's horses and all the king's men couldn't fix THAT car.
  90. LACT: 6;7;DSET 6,N7
  91.  
  92. /* Blue Car Section, here we go...
  93.  
  94. LINE: 6;8;Why does it say "To be scrapped" in the window?;Tell me again about the "To be scrapped" sign.;IFOF ROBJ1,1=1;IFRF 3=0
  95. LACT: 6;8;RESP R,6,Erm... That's just there for decoration.;RESP R,6,Honestly!;DSET 6,-8
  96.  
  97. LINE: 6;9;That car is crap! I'm not buying it!;I still don't want to buy the stupid car.;IFRF 3=1
  98. LACT: 6;9;RESP R,6,Okay, suit yourself.;DSET 6,R1
  99.  
  100. LINE: 6;10;How much does it cost?;How much did you say it costed again?;IFRF 3=0;IFRF 2=0;IFRF 4=0
  101. LACT: 6;10;RESP R,6,One hundred pounds.;RESP R,6,Or, I will accept one gold hamster. I collect them, you see.;DSET 6,-10,+12
  102.  
  103. LINE: 6;11;I've got a golden hamster right here.;I've got a golden hamster right here.;IFRF 3=0;IFCARR 28
  104. LACT: 6;11;SAY I do want to take it for a test drive first, though.;RESP R,6,Okay, good luck!;SETRF 4=1;DSET 6,R1
  105.  
  106. LINE: 6;12;I don't have that sort of money on me.;I still haven't got that much money.;IFNOTCARR 28
  107. LACT: 6;12;RESP R,6,That's a shame.;DSET 6,R1
  108.  
  109. LINE: 6;13;Actually, I don't really want to talk about the blue car.;Actually, I don't really want to talk about the blue car.; 
  110. LACT: 6;13;RESP R,6,Okay, let's not.;DSET 6,R1
  111.  
  112. /* Okay, now the Mini!
  113.  
  114. LINE: 6;14;How much does it cost?;How much did you say it costed again?;IFRF 5=0
  115. LACT: 6;14;RESP R,6,Nine hundred pounds, or nine gold hamsters.;DSET 6,-14,+16
  116.  
  117. LINE: 6;15;I just happen to have nine gold hamsters right here.; ;IFCARR 28;IFOF 28,1=1
  118. LACT: 6;15;HANDLE;W 25;HANDLE -1;RESP R,6,Aha, brilliant!;RESP R,6,The Mini is now yours.;SAY Nice one!
  119. LACT: 6;15;SETRF 5=1;REMOVE 28,N,0;DSET 6,R1
  120.  
  121. LINE: 6;16;Sorry, I haven't got the money.;Sorry, I still haven't got the money.;IFOF 28,1=0
  122. LACT: 6;16;RESP R,6,Shame. You would've liked it.;DSET 6,R1
  123.  
  124.  
  125. /* ACTION: verb_no;{cond|comm} (This statement is optional)
  126.  
  127. ACTION: 0;IFOBJ 1;MEXIT;GOTO 19,2
  128. ACTION: 0;IFOBJ 2;MEXIT;GOTO 18,3
  129.  
  130. ACTION: 1;IFOBJ 19|20;IFOBJ2 6;SAY Would this be any use to you?;RESP R,6,No, I already have enough tools of my own.;EXIT
  131. ACTION: 1;IFOBJ 28;IFOBJ2 6;OBJ1 6;VERB 5;REDO
  132.  
  133. ACTION: 2;IFOBJ ROBJ2;MOBJ;SAY I can't reach it from here.;SAY Plus, I wouldn't really want to carry a huge sign around with me, anyway.;EXIT
  134. ACTION: 3;IFOBJ2 ROBJ2;MOBJ ROBJ2;SAY My hand isn't long enough!;EXIT
  135.  
  136. ACTION: 3;IFOBJ 30;IFRF 5=0;SAY I'd better not drive it off, it's not mine!;EXIT
  137. ACTION: 3;IFOBJ 30;IFRF 5=1;SAY Drive it- Where would I drive to?;SAY This is only a small island- there is no road here!;EXIT
  138. ACTION: 3;IFOBJ 19|20;IFOBJ2 30;SAY Why? It's in perfectly good condition.;EXIT
  139.  
  140. ACTION: 3;IFOBJ ROBJ1;IFRF 4=0;SAY It's not mine, I'd better not.;EXIT
  141. ACTION: 3;IFOBJ ROBJ1;IFRF 3=0;MOBJ;SAY Okay, let's give it a go.;HANDLE;W 50;HANDLE -1;SAY Dammit. The engine won't start;SETRF 3=1;EXIT
  142. ACTION: 3;IFOBJ ROBJ1;SAY I've given up trying with that.;EXIT
  143. ACTION: 3;IFOBJ 19|20;IFOBJ2 ROBJ1;SAY I think it'll take more than that to fix it.;EXIT
  144. ACTION: 3;IFTYPE X;IFOBJ2 ROBJ1;SAY I know it's a crap car, but vandalising it is not going to help!;EXIT
  145.  
  146. ACTION: 3;IFOBJ 27;IFOBJ2 30;IFRF 5=1;SAY Well, here goes.;HANDLE;W 25;HANDLE -1;SETRF 2=1;HIDE 30;SAY Wow, it worked!;W 25;SAY ...but where did it go?;EXIT
  147. ACTION: 3;IFOBJ 27;IFOBJ2 30|ROBJ1;SAY I don't really want to use the teleporter on a car that isn't mine.;EXIT
  148.  
  149. ACTION: 3;IFOBJ 29;IFOBJ2 30|ROBJ1;SAY I can't, the tape player in it doesn't work.;EXIT
  150.  
  151. ACTION: 4;IFOBJ ROBJ1;IFRF 6=0;MOBJ;HANDLE;W 50;HANDLE -1;SAY Hey, there's a tape in here.;SETRF 6=1;GET 29,U;EXIT
  152. ACTION: 4;IFOBJ 30|ROBJ1;MOBJ;HANDLE;W 25;HANDLE -1;SAY The door opens fine. So what?;EXIT
  153.  
  154. ACTION: 5;IFOBJ 6;IFOF 1=0;SETOF 1=1;MOBJ;DSET 6,+1,+2,+3,+4,+5;EXIT
  155. ACTION: 5;IFOBJ 6;MOBJ;DSET 6;EXIT
  156.  
  157. ACTION: 8;IFOBJ 30;IFRF 5=1;MOBJ;SAY It's my lovely mini!;EXIT
  158. ACTION: 8;IFOBJ 30;MOBJ;SAY It's a mini with dodgy stripes!;SAY Cool!;EXIT
  159. ACTION: 8;IFOBJ ROBJ1;IFRF 6=0;MOBJ;HANDLE;W 50;HANDLE -1;SAY Hey, there's a tape in here.;SETRF 6=1;GET 29,U;EXIT
  160. ACTION: 8;IFOBJ ROBJ1;MOBJ;SAY This car hasn't been looked after very well.;SAY There's a sign inside saying "To be scrapped".;SETOF 1=1;EXIT
  161. ACTION: 8;IFOBJ ROBJ2;MOBJ;SAY Ivan's Garage. New and used cars, Repairs, etc.;EXIT
  162.  
  163.  
  164. /* Plus of course, silly comment.
  165.